home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / MESSAGE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.6 KB  |  53 lines
  1. 10  '**********************************************
  2. 20  '**             MESSAGE CENTER               **
  3. 30  '**                                          **
  4. 40  '**  VERSION 1.1               JUNE 5, 1982  **
  5. 50  '**********************************************
  6. 60  SCREEN 0 : WIDTH 80 : KEY OFF : CLS
  7. 70  LOCATE 25,1 : INPUT "ENTER MESSAGE HERE - ";A$ : CLS
  8. 80  IF LEN(A$) < 30 THEN 120
  9. 90  B$ = ""
  10. 100  FOR S = 1 TO 29 : B$ = B$ + MID$(A$,S,1) : NEXT
  11. 110  A$ = B$
  12. 120  FOR S = LEN(A$) + 1 TO 29
  13. 130  A$ = A$ + " "
  14. 140  NEXT
  15. 150  DEF SEG = &HF000    ' LAST 64K OF MEMORY MAP
  16. 160  TABLE = &HFA6E      ' LOCATION OF FIRST CHARACTER
  17. 170  X = 1 : Y = 1 : LOCATE X,Y
  18. 180  FOR CHARACTER = 1 TO 29          ' FOR EACH CHARACTER
  19. 190  A = ASC(MID$(A$,CHARACTER,1))    ' GET THE ASCII VALUE
  20. 200  CODE = TABLE + A * 8             ' POINT INTO THE TABLE
  21. 210  FOR BYTE = 0 TO 7                ' FOR EACH BYTE
  22. 220  PATTERN = PEEK (CODE + BYTE)
  23. 230  LOCATE X,Y
  24. 240  IF PATTERN < 128 THEN PRINT " ";:GOTO 270
  25. 250  PRINT CHR$(A);
  26. 260  PATTERN = PATTERN - 128
  27. 270  IF PATTERN < 64 THEN PRINT " ";:GOTO 300
  28. 280  PRINT CHR$(A);
  29. 290  PATTERN = PATTERN - 64
  30. 300  IF PATTERN < 32 THEN PRINT " ";:GOTO 330
  31. 310  PRINT CHR$(A);
  32. 320  PATTERN = PATTERN - 32
  33. 330  IF PATTERN < 16 THEN PRINT " ";:GOTO 360
  34. 340  PRINT CHR$(A);
  35. 350  PATTERN = PATTERN - 16
  36. 360  IF PATTERN < 8 THEN PRINT " ";:GOTO 390
  37. 370  PRINT CHR$(A);
  38. 380  PATTERN = PATTERN - 8
  39. 390  IF PATTERN < 4 THEN PRINT " ";:GOTO 420
  40. 400  PRINT CHR$(A);
  41. 410  PATTERN = PATTERN - 4
  42. 420  IF PATTERN < 2 THEN PRINT " ";:GOTO 450
  43. 430  PRINT CHR$(A);
  44. 440  PATTERN = PATTERN - 2
  45. 450  IF PATTERN < 1 THEN PRINT " ";:GOTO 470
  46. 460  PRINT CHR$(A);
  47. 470  PATTERN = PATTERN - 1
  48. 480  X = X + 1
  49. 490  NEXT BYTE
  50. 500  X = X - 8 : Y = Y + 8 : IF Y > 75 THEN X = X + 8 : Y = 1
  51. 510  NEXT CHARACTER
  52. 520  GOTO 70
  53.